gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGtiaoEdit.asp
<!-- #INCLUDE FILE="login.asp" -->
<%
'///*********************************
' 修改广告条信息程序
'********************************///
action=trim(request.querystring("action"))
select case action
case "ruku"
dqw="验证修改的广告条信息"&" [<a href=javascript:opw('GGtiaoCz.asp?a=Yl&id="&request.querystring("id")&"','ZonGG"&request.querystring("id")&"',800,600)>预览</a>]"
Call Heads_GGtiao(dqw)
call GgtiaoxxEditRuku(request.querystring("id"))
case else
dqw="修改ID为"&request.querystring("id")&"的广告条信息"&" [<a href=javascript:opw('GGtiaoCz.asp?a=Yl&id="&request.querystring("id")&"','ZonGG"&request.querystring("id")&"',800,600)>预览</a>]"
Call Heads_GGtiao(dqw)
call GGtiaonewMain()
end select
'/********************************************************************
' GGtiaonewMain() 添加新广告条输入界面
'********************************************************************/
Sub GGtiaonewMain()
if isnumeric(request.querystring("id")) = false then response.end
sql="select * from Advertisement where ADid="&cint(request.querystring("id"))
rs.open sql,conn,1,1
%>
<!--#include file=include/Color.inc -->
<!--#include file=include/Font.inc -->
<div align="center">
<center>
<table border=1 width=600 cellpadding=2 style="border-collapse: collapse" bordercolor=#C0C0C0 bgcolor="#FFFFFF">
<form method="POST" name="form" action=?action=ruku&id=<%=request.querystring("id")%> onSubmit="return isok(this)">
<tr>
<td width=85 align="right" height="30" class="td1">广告名称</td>
<td class="td1" height="30">
<input type=text name=name size=46 maxlength=30 value="<%=rs("ADname")%>"> </td>
<td class="td1" height="30">
<font color="#808080">不超过30个半角字符</font></td>
</tr>
<tr>
<td width=85 align="right">链接URL</td>
<td>
<input type=text name=url size=46 value="<%=rs("ADurl")%>">
</td>
<td>
<input type="radio" name="window" value="0" <%if rs("ADwindow")=0 then response.write "checked"%>> 新窗口打开
<input type="radio" name="window" value="1" <%if rs("ADwindow")=1 then response.write "checked"%>> 原窗口打开
</td>
</tr>
<tr>
<td width=85 align="right">简介/内容</td>
<td width="200">
<textarea rows="9" name="intro" cols="45"><%=rs("ADintro")%></textarea></td>
<td> <font color="#FF0000">提示：</font><br>
<font color="#808080">
1、如果是嵌入代码，请将代码内容填入此处，此时，“链接URL”无效<br>
2、如果是植入网页，请将网页地址填入此处，此时，“链接URL”无效<br>
3、如果是纯文本，则广告条内容显示为此项内容<br>
4、是图片、动画时广告图URL才有效</font></td>
</tr>
<tr>
<td width=85 align="right">广告类型</td>
<td>
<%for i=0 to 4
if PubFgdy(xsleienlb,"|",i)=rs("ADxslei") then
response.write "<input type=radio name=xslei value="&PubFgdy(xsleienlb,"|",i)&" checked>"& PubFgdy(xsleicnlb,"|",i)
else
response.write "<input type=radio name=xslei value="&PubFgdy(xsleienlb,"|",i)&">"& PubFgdy(xsleicnlb,"|",i)
end if
next
%>
</td>
<td>
<input type="radio" name="ipkg" value="1" <%if rs("ADipkg")=1 then response.write "checked"%> >打开Ip记录
<input type="radio" name="ipkg" value="0" <%if rs("ADipkg")=0 then response.write "checked"%> >关闭Ip记录</td>
</tr>
<tr>
<td align="right">图片URL</td>
<td>
<input type=text name=gif_url size=46 value="<%=rs("Picurl")%>" onFocus="">
</td>
<td>
<a href="JavaScript:openem()"><font color="blue">上传广告图</font></a><font color="#0000FF">
</font>(<font color="#FF0000"><= <%=PubcSize(UpFileSize*1024)%></font>)</td>
</tr>
<tr>
<td align="right">显示于广告位</td>
<td>
<%Call GgwClassSelect(rs("Pids"))%>
</td>
<td>
<font color="#808080">1、按“Ctrl”或“Shift”或“拖动鼠标”可以进行多选<br>2、自动过滤选中条目的非广告位条目<br>3、单独选中一个“广告分类”时，选择被视为无效</font></td>
</tr>
<tr>
<td align="right" class="td1" height="30">
<input type="checkbox" name="ys" value=yes onclick="ysxs();">广告条样式</td>
<td class="td1 " height="30" colspan="2">
高度、宽度定义广告条显示大小，可以是数字、百分比或空默认，边宽、边色定义边</td>
</tr>
<tbody id="ysx" style="DISPLAY:none">
<tr>
<td align="right"> </td>
<td colspan="2">
<font siz=3 >高度 </font>
<input type=text name=ADcss size=10 maxlength="4" value="<%=PubFgdy(Rs("ADcss"),",",0)%>"><font siz=3 >
宽度 </font>
<input type=text name=ADcss size=10 maxlength="4" value="<%=PubFgdy(Rs("ADcss"),",",1)%>"><font color=red siz=3 > </font> 边宽
<select size="1" name="ADcss">
<%
Dim bkuan
bkuan=PubFgdy(Rs("ADcss"),",",2)
for i=0 to 6
response.write "<option"
if isnumeric(bkuan) then
if cint(bkuan)=i then
response.write " selected"
end if
end if
response.write ">"&i&"</option>"
next
%>
</select> 边色
<select size="1" name="ADcss">
<option value="">默认</option>
<%
for i=1 to 139
response.write "<option style='background-color:"&se_zhi(i)&";color: "&se_zhi(i)&"' value='"&se_zhi(i)&"' "
if PubFgdy(Rs("ADcss"),",",3)=se_zhi(i) then response.write " selected"
response.write ">"&se_zhi(i)&"</option>"
next
%>
</select>
</td>
</tr>
<tr>
<td align="right"> </td>
<td colspan="2">
字体
<select name="ADcss" title="字体名">
<option class="heading" selected value="">默认</option>
<%for i=1 to 25
response.write "<option"
if PubFgdy(Rs("ADcss"),",",4)=Ziti(i) then
response.write " selected"
end if
response.write ">"&Ziti(i)&"</option>"
next%>
</select> 字号 <select name="ADcss" title="字号大小">
<option class="heading" <%if PubFgdy(Rs("ADcss"),",",5)="" then response.write "selected"%> value="">默认</option>
<option value="7" <%if PubFgdy(Rs("ADcss"),",",5)="7" then response.write "selected"%>>一号</option>
<option value="6" <%if PubFgdy(Rs("ADcss"),",",5)="6" then response.write "selected"%>>二号</option>
<option value="5" <%if PubFgdy(Rs("ADcss"),",",5)="5" then response.write "selected"%>>三号</option>
<option value="4" <%if PubFgdy(Rs("ADcss"),",",5)="4" then response.write "selected"%>>四号</option>
<option value="3" <%if PubFgdy(Rs("ADcss"),",",5)="3" then response.write "selected"%>>五号</option>
<option value="2" <%if PubFgdy(Rs("ADcss"),",",5)="2" then response.write "selected"%>>六号</option>
<option value="1" <%if PubFgdy(Rs("ADcss"),",",5)="1" then response.write "selected"%>>七号</option>
</select> 字色 <select size="1" name="ADcss">
<option value="">默认</option>
<%
for i=1 to 139
response.write "<option style='background-color:"&se_zhi(i)&";color: "&se_zhi(i)&"' value='"&se_zhi(i)&"' "
if PubFgdy(Rs("ADcss"),",",6)=se_zhi(i) then response.write " selected"
response.write ">"&se_zhi(i)&"</option>"
next
%>
</select> </td>
</tr>
<tr>
<td align="right"> </td>
<td colspan="2">
粗体<input type="checkbox" name="ADcss1" value="yes"<%if PubFgdy(Rs("ADcss"),",",7)="yes" then response.write " checked"%>>
斜体<input type="checkbox" name="ADcss2" value="yes"<%if PubFgdy(Rs("ADcss"),",",8)="yes" then response.write " checked"%>>
下划线<input type="checkbox" name="ADcss3" value="yes"<%if PubFgdy(Rs("ADcss"),",",9)="yes" then response.write " checked"%>></td>
</tr>
</tbody>
<tr>
<td class=td1 height="30" align="right">
<input type="checkbox" name="bfz" value=yes onclick="bfzxs();">播放条件组</td>
<td class=td1 height="30" colspan="2">任选八个条件组中的一组，设置条件，用于限制该广告自动进入休眠状态的条件。<br>
注意：所有“<b>数</b>”必须是<font color="#FF0000">整数</font>，“<b>期</b>”的格式定为：“<font color="#FF0000">年:月:日
时:分:秒</font>”，亦即“<span style="text-transform: uppercase"><font color=#FF0000>yyyy-mm-dd
hh:mm:ss</font></span>”。</td>
</tr>
<tbody id="bfzs" style="DISPLAY:none">
<%
if rs("ADclass")=0 then
%>
<tr>
<td align=right><font color=red>（1）</font><input type=radio value=0 name=class checked></td>
<td colspan="2">
<table border=0>
<tr>
<td>
</td>
<td>无限播放条件</td>
</tr>
</table>
</td>
</tr>
<%
else
%>
<tr>
<td align=right><font color=red>（1）</font><input type=radio value=0 name=class></td>
<td colspan="2">
<table border=0>
<tr>
<td>
</td>
<td>无限播放条件</td>
</tr>
</table>
</td>
</tr>
<%
end if
%>
<%
if rs("ADclass")=1 then
%>
<tr>
<td align=right bgcolor="#F5F5F5"><font color=red>（2）</font><input type=radio value=1 name=class checked></td>
<td bgcolor=#ffffee colspan="2">
<table border=0>
<tr>
<td>
</td>
<td>点击<b>数</b>不超过</td>
<td>
<input type=text name=clicks1 size=8 value="<%=rs("ADclicks")%>">
</td>
</tr>
</table>
</td>
</tr>
<%else%>
<tr>
<td align=right bgcolor="#F5F5F5"><font color=red>（2）</font><input type=radio value=1 name=class></td>
<td bgcolor=#ffffee colspan="2">
<table border=0>
<tr>
<td>
</td>
<td>点击<b>数</b>不超过</td>
<td>
<input type=text name=clicks1 size=8>
</td>
</tr>
</table>
</td>
</tr>
<%end if%>
<%
if rs("ADclass")=2 then
%>
<tr>
<td align=right><font color=red>（3）</font><input type=radio value=2 name=class checked></td>
<td colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>显示<b>数</b>不超过</td>
<td>
<input type=text name=shows2 size=8 value="<%=rs("ADshows")%>">
</td>
</tr>
</table>
</td>
</tr>
<%
else
%>
<tr>
<td align=right><font color=red>（3）</font><input type=radio value=2 name=class></td>
<td colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>显示<b>数</b>不超过</td>
<td>
<input type=text name=shows2 size=8>
</td>
</tr>
</table>
</td>
</tr>
<%
end if
%>
<%
if rs("ADclass")=3 then
%>
<tr>
<td align=right bgcolor="#F5F5F5"><font color=red>（4）</font><input type=radio value=3 name=class checked></td>
<td bgcolor=#ffffee colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>显示<b>截</b>止期为</td>
<td>
<input type=text name=time3 size=16 value="<%=rs("ADstoptime")%>"></td>
</tr>
</table>
</td>
</tr>
<%
else
%>
<tr>
<td align=right bgcolor="#F5F5F5"><font color=red>（4）</font><input type=radio value=3 name=class></td>
<td bgcolor=#ffffee colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>显示<b>截</b>止期为</td>
<td>
<input type=text name=time3 size=16></td>
</tr>
</table>
</td>
</tr>
<%
end if
%>
<%
if rs("ADclass")=4 then
%>
<tr>
<td align=right><font color=red>（5）</font><input type=radio value=4 name=class checked></td>
<td colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>点击<b>数</b>不超过</td>
<td>
<input type=text name=clicks4 size=8 value="<%=rs("ADclicks")%>"> 显示<b>数</b>不超过
<input type=text name=shows4 size=8 value="<%=rs("ADshows")%>">
</td>
</tr>
</table>
</td>
</tr>
<%
else
%>
<tr>
<td align=right><font color=red>（5）</font><input type=radio value=4 name=class></td>
<td colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>点击<b>数</b>不超过</td>
<td>
<input type=text name=clicks4 size=8> 显示<b>数</b>不超过
<input type=text name=shows4 size=8>
</td>
</tr>
</table>
</td>
</tr>
<%
end if
%>
<%
if rs("ADclass")=5 then
%>
<tr>
<td align=right bgcolor="#F5F5F5"><font color=red>（6）</font><input type=radio value=5 name=class checked></td>
<td bgcolor=#ffffee colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>点击<b>数</b>不超过</td>
<td>
<input type=text name=clicks5 size=8 value="<%=rs("ADclicks")%>">
</td>
</tr>
<tr>
<td align=center> </td>
<td>显示<b>截</b>止期为</td>
<td>
<input type=text name=time5 size=16 value="<%=rs("ADstoptime")%>"></td>
</tr>
</table>
</td>
</tr>
<%
else
%>
<tr>
<td align=right bgcolor="#F5F5F5"><font color=red>（6）</font><input type=radio value=5 name=class></td>
<td bgcolor=#ffffee colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>点击<b>数</b>不超过</td>
<td>
<input type=text name=clicks5 size=8>
</td>
</tr>
<tr>
<td align=center> </td>
<td>显示<b>截</b>止期为</td>
<td>
<input type=text name=time5 size=16></td>
</tr>
</table>
</td>
</tr>
<%
end if
%>
<%
if rs("ADclass")=6 then
%>
<tr>
<td align=right><font color=red>（7）</font><input type=radio value=6 name=class checked></td>
<td colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>显示<b>数</b>不超过</td>
<td>
<input type=text name=shows6 size=8 value="<%=rs("ADshows")%>">
</td>
</tr>
<tr>
<td></td>
<td>显示截止<b>期</b>为</td>
<td>
<input type=text name=time6 size=16 value="<%=rs("ADstoptime")%>"></td>
</tr>
</table>
</td>
</tr>
<%
else
%>
<tr>
<td align=right><font color=red>（7）</font><input type=radio value=6 name=class></td>
<td colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>显示<b>数</b>不超过</td>
<td>
<input type=text name=shows6 size=8>
</td>
</tr>
<tr>
<td></td>
<td>显示截止<b>期</b>为</td>
<td>
<input type=text name=time6 size=16></td>
</tr>
</table>
</td>
</tr>
<%
end if
%>
<%
if rs("ADclass")=7 then
%>
<tr>
<td align=right bgcolor="#F5F5F5"><font color=red>（8）</font><input type=radio value=7 name=class checked></td>
<td bgcolor=#ffffee colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>点击<b>数</b>不超过</td>
<td>
<input type=text name=clicks7 size=8 value="<%=rs("ADclicks")%>"> 显示<b>数</b>不超过
<input type=text name=shows7 size=8 value="<%=rs("ADshows")%>"></td>
</tr>
<tr>
<td></td>
<td>显示截止<b>期</b>为</td>
<td>
<input type=text name=time7 size=16 value="<%=rs("ADstoptime")%>"></td>
</tr>
</table>
</td>
</tr>
<%else%>
<tr>
<td align=right bgcolor="#F5F5F5"><font color=red>（8）</font><input type=radio value=7 name=class></td>
<td bgcolor=#ffffee colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>点击<b>数</b>不超过</td>
<td>
<input type=text name=clicks7 size=8> 显示<b>数</b>不超过
<input type=text name=shows7 size=8></td>
</tr>
<tr>
<td></td>
<td>显示截止<b>期</b>为</td>
<td>
<input type=text name=time7 size=16></td>
</tr>
</table>
</td>
</tr>
<%end if%>
</tbody>
<tr>
<td colspan=3 align=center height="30">
<input type=submit value=提交 name=B1>
<input type=reset value=重写 name=B2>
</td>
</tr>
</form>
</table>
</center>
</div>
<%
End Sub
%>